home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / misc / cpk / arexx / startup.cpk < prev    next >
Text File  |  1994-06-15  |  611b  |  37 lines
  1. /*
  2.  * CPK ARexx example startup file
  3.  *
  4.  * Author: Eric G. Suchanek, Ph.D.
  5.  * Copyright © 1993, 1994 Eric G. Suchanek, Ph.D. All Rights Reserved
  6.  *
  7.  * You must launch cpk first to run this script.
  8.  * 
  9.  */
  10.  
  11. Options FailAt 100
  12.  
  13. Options Results
  14.  
  15. address cpk1
  16.  
  17. 'VectorMode ON'
  18. if rc > 0 then say 'Error was 'CPK.LASTERROR
  19.  
  20. 'SwapColors ON'
  21. if rc > 0 then say 'Error was 'CPK.LASTERROR
  22.  
  23. 'Verbose ON'
  24. 'render'
  25.  
  26. exit
  27.  
  28. /* don't use this for the initial startup script, since the ARexx
  29.    port doesn't exactly exist at startup time. */
  30. Locate_CPK:
  31. if POS('CPK' , SHOW('Ports')) = 0 then 
  32.     return 0
  33. else
  34.     return 1
  35. end if
  36.  
  37.